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1. 
Introducci´on a Tcl 


Tcl (Tool Command Language) es un lenguaje de programaci´on de comandos muy popular 
para el desarrollo de peque˜nas aplicaciones en entornos UNIX (aunque tambi´en existe una 
versi´on disponible para Windows). Permite programar de forma r´apida y sencilla aplicaciones 
no demasiado complejas. Sin embargo, la velocidad de ejecuci´on de ´estas no ser´a muy elevada 
ya que nos encontramos ante un lenguaje interpretado y no ante un lenguaje compilado. 
Una caracter´ıstica muy importante de este lenguaje es la facilidad con la que se pueden 
a˜nadir nuevos comandos a los ya existentes en el Tcl est´andar. Estos nuevos comandos pueden 
implementarse utilizando el lenguaje de programaci´on C e integrarse de manera sencilla en 
Tcl. As´ı, se han escrito bastantes extensiones para la realizaci´on de ciertas tareas comunes 
como, por ejemplo, OTcl (Tcl orientado a objetos) o Tk (que permite crear interfaces gr´aﬁcas 
de usuario). 
Se pueden ejecutar comandos Tcl de dos modos: 


1. 
Modo interactivo: directamente, a trav´es del int´erprete de comandos tclsh, se pueden 
introducir y ejecutar comandos Tcl de forma interactiva. 


2. 
Modo no interactivo: los comandos se guardan en un ﬁchero. Se pueden ejecutar de dos 
maneras: 


Llamando al int´erprete de comandos de Tcl pas´andole como par´ametro el nombre 
del ﬁchero. 


Ejecutando directamente el ﬁchero de comandos. Para que esto sea posible, la 
primera l´ınea del ﬁchero debe incluir el path hacia el int´erprete de comandos 
(por ejemplo, #!/usr/bin/tclsh). Adem´as, el ﬁchero tiene que tener los permisos 
adecuados (permiso de ejecuci´on). 


Este documento no pretende ser una guia completa del lenguaje Tcl. Simplemente, se ofrece 
como manual de ayuda para la realizaci´on de las pr´acticas de la asignatura Sistemas de Con- 
mutaci´on. Para obtener m´as informaci´on sobre c´omo utilizar un determinado comando Tcl, 
se recomienda consultar la p´agina man correspondiente (man n comando) o cualquier libro 
que describa este lenguaje [1, 2]. 


2. 
Variables y valores 


Tcl trata principalmente con cadenas de texto (strings). Cuando es necesario (por ejemplo, 
a la hora de realizar operaciones aritm´eticas), Tcl convierte autom´aticamente los strings en 
n´umeros. 
Para crear una variable y asignarle un valor se utiliza el comando set: 
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% set a 100 


Cuando el s´ımbolo $ precede al nombre de una variable, el int´erprete sustituye dicha 
variable por su valor. Por ejemplo: 


% puts $a 
100 


Para realizar operaciones aritm´eticas se utiliza el comando expr: 


% expr 2∗$a 
200 


Una cadena contenida entre corchetes ([cadena]) se considera que es un comando: la cadena 
se eval´ua como si fuese un comando Tcl y se sustituye por el resultado obtenido. Esto no 
ocurre si la cadena est´a entre comillas (“cadena”). Para ejecutar realmente dicha cadena se 
requiere el comando eval: 


% set b [ expr 2∗$a ] 
200 
% set b ”expr 2∗$a” 
expr 2∗100 
% eval $b 
200 


3. 
Estructuras de control 


Los comandos de control de ﬂujo son similares a sus equivalentes en el lenguaje C. Los prin- 
cipales operadores de comparaci´on son: <, >, <=, >=, ==, !=, &&, ||, !. Los ejemplos 
siguientes pueden ser ´utiles para ilustrarnos en la utilizaci´on de estos comandos. 


if 


% set 
i 
1 
% i f 
{ $i <0} { 
puts ” Negativo” 
} 
e l s e i f 
{ $i==0} { 
puts ”Cero” 
} 
e l s e 
{ 
puts ” Positivo ” 
} 
Positivo 


for 


% for 
{ set 
i 
1} { $i <=3} { incr 
i } { 
puts 
$i 
} 
1 
2 
3 


El comando break ﬁnaliza la ejecuci´on del bucle inmediatamente. El comando continue 
fuerza a que se ejecute la iteraci´on siguiente (evidentemente, siempre y cuando se cum- 
pla la condici´on de continuaci´on del bucle). 


2 


while 


% set 
i 
1 
% while { $i <=3} { 
puts 
$i 
incr 
i 
} 
1 
2 
3 


4. 
Operaciones con cadenas de texto 


string length 
Devuelve el n´umero de caracteres que forman una cadena. 


% s t r i n g 
length ”ABCD” 
4 


string index 
Devuelve el car´acter situado en una determinada posici´on dentro de una cadena. Al 
primer car´acter le corresponde el ´ındice 0. Podemos referirnos al ´ultimo car´acter de 
una cadena mediante la palabra end. 


% s t r i n g 
index ”ABCD” 1 
B 
% s t r i n g 
index ”ABCD” end 
D 


string range 
Devuelve la subcadena formada por las caracteres que se encuentran entre dos posicio- 
nes de una cadena. 


% s t r i n g 
range ”ABCDEF” 3 end 
DEF 


string ﬁrst, last 
Busca la primera (´ultima) ocurrencia de una subcadena en una cadena y devuelve el 
´ındice a partir del cual se encuentra dicha subcadena (si no se encuentra, devuelve −1). 


% s t r i n g 
f i r s t 
”CD” ”ABCDABCD” 
2 
% s t r i n g 
l a s t 
”CD” ”ABCDABCD” 
6 


string map 
Reemplaza en una cadena las subcadenas indicadas por otras nuevas. 


% s t r i n g map {AB 12 C 3 D 4} ”ABCD” 
1234 


string match 
Devuelve 1 si la cadena coincide con el patr´on proporcionado (o 0 en caso contrario). Pa- 
ra obtener completa informaci´on sobre la especiﬁcaci´on de patrones se puede consultar 
la ayuda de la herramienta flex. 
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% s t r i n g 
match ”∗B∗” ”ABC” 
1 


regexp 
Permite buscar patrones en una cadena y asignarlos a variables. 


% set 
cadena ”El 
resultado 
es 
100.” 
% regexp {[0−9]+} $cadena 
resultado 
% puts 
$resultado 
100 


5. 
Arrays 


Los arrays en Tcl son asociativos: cualquier cadena puede ser ´ındice de un array. 


% set 
miarray (0) 0 
% set 
miarray ( elemento ) 1 
% puts $miarray (0) 
0 
% puts $miarray ( elemento ) 
1 


Los comandos m´as importantes para manejar arrays son: array exists, array get, array 
names, array size... 


6. 
Listas 


Son agrupaciones de elementos de Tcl. Cualquier elemento Tcl puede formar parte de una 
lista, incluido otras listas. La sintaxis para crear una lista es la siguiente: 


% set 
meses { enero 
febrero 
marzo} 


llength 
Devuelve el n´umero de elementos que forman la lista. 


% llength 
$meses 
3 


lindex 
Devuelve el elemento que ocupa una posici´on determinada en una lista. Al elemento 
inicial de la lista le corresponde el ´ındice 0. 


% lindex 
$meses 1 
febrero 


linsert 
Permite a˜nadir elementos a una lista a partir de una posici´on determinada. 


% l i n s e r t 
$meses end 
a b r i l mayo 
enero 
febrero 
marzo 
a b r i l mayo 
% puts $meses 
enero 
febrero 
marzo 
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Atenci´on: este comando no modiﬁca la lista meses, sino que devuelve una lista con los 
nuevos elementos a˜nadidos. 


lappend 
A˜nade elementos a una lista a partir del ﬁnal de la misma. Este comando s´ı modiﬁca 
realmente la lista. 


% lappend meses 
a b r i l mayo 
enero 
febrero 
marzo 
a b r i l mayo 
% puts $meses 
enero 
febrero 
marzo 
a b r i l mayo 


lsearch 
Busca elementos de la lista que veriﬁquen un determinado patr´on. Devuelve el ´ındice 
del primer elemento que cumple con el patr´on o −1 si no se encuentra ning´un elemento. 


% lsearch 
$meses 
feb ∗ 
1 


lreplace 
Devuelve la lista resultado de reemplazar en una lista los elementos seleccionados por 
otros nuevos. 


% l r e p l a c e 
$meses 0 1 ENERO FEBRERO 
ENERO FEBRERO marzo 
a b r i l mayo 


Si no se especiﬁcan los nuevos elementos, simplemente se eliminan los elementos selec- 
cionados. 


% l r e p l a c e 
$meses 0 1 
marzo 
a b r i l mayo 


split 
Crea una lista a partir de una cadena. El delimitador por defecto es el espacio en blanco. 


% s p l i t 
”uno dos 
t r e s ” 
uno dos 
t r e s 
% s p l i t 
”uno , dos , t r e s ” { ,} 
uno dos 
t r e s 


foreach 
Este comando asigna a una variable un elemento de una lista en cada paso. 


% foreach 
i 
{1 2 3} { 
puts 
$i 
} 
1 
2 
3 
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7. 
Procedimientos 


Un procedimiento se deﬁne de la siguiente manera: 


proc nombre proc { arg1 
arg2 
. . . } 
{ 
. . . 
return 
$var 
} 


Por defecto, todas las variables creadas dentro de un procedimiento son locales a dicho 
procedimiento. Para acceder a variables globales: 


global variable: permite acceder dentro de un procedimiento a una variable global. 


upvar oldvar newvar: hace que la variable global oldvar sea accesible en el procedi- 
miento actual a trav´es de una variable de nombre newvar. 


8. 
Comandos de entrada/salida 


open 
Abre un ﬁchero y devuelve un identiﬁcador de canal que se puede utilizar en futuras 
llamadas a otros comandos de E/S. 


% set 
f i c h e r o 
[ open ” f i c h e r o . txt ” r ] 


Se permiten los siguientes modos de acceso: 


• r: s´olo lectura (el ﬁchero debe existir). 


• r+: lectura y escritura (el ﬁchero debe existir). 


• w: s´olo escritura (si existe, lo sobreescribe). 


• w+: lectura y escritura (si existe, lo sobreescribe). 


• a: s´olo escritura (el ﬁchero debe existir, a˜nade datos al ﬁnal del ﬁchero). 


• a+: lectura y escritura (el ﬁchero debe existir, a˜nade datos al ﬁnal del ﬁchero). 


Si el primer car´acter del nombre del ﬁchero es el s´ımbolo |, el open funciona como una 
tuber´ıa: permite ejecutar programas externos y que su salida est´e disponible a trav´es 
del identiﬁcador devuelto: 


% set 
l i s t a d o 
[ open 
”| 
l s ” r ] 


close 
Este comando cierra el canal establecido para manejar un ﬁchero. 


% c l o s e 
$ f i c h e r o 


gets 
Permite leer l´ıneas de un ﬁchero. Devuelve el n´umero de caracteres leidos o −1 si se 
produce un error. 


% gets 
$ f i c h e r o 
l i n e a 


puts 
Permite escribir l´ıneas en un ﬁchero. Con la opci´on nonewline se evita escribir el salto 
de l´ınea. 
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% puts 
$ f i c h e r o 
”1 2 3” 


ﬁle 
Permite comprobar el estado de un ﬁchero. Se puede ejecutar con varias opciones: 
exists, executable, extension, type, size. 


% f i l e 
e x i s t s 
” f i c h e r o . txt ” 
1 


9. 
Otros comandos 


Comentarios 


Toda l´ınea que empieza con el car´acter # se considerar´a un comentario ignor´andose su 
contenido. 


Par´ametros pasados a la aplicaci´on 


Los par´ametros que se le pasan a una aplicaci´on Tcl a trav´es de la l´ınea de comandos se 
guardan en una lista denominada argv. Por tanto, para obtener el primer par´ametro: 


% lindex 
$argv 0 


Ejecuci´on de programas externos 


Se pueden ejecutar programas externos a la aplicaci´on Tcl de dos maneras: 


• Mediante el comando open: ver secci´on 8.1. 


• Mediante el comando exec: exec comando. 


Generaci´on de n´umeros aleatorios 


El comando srand permite inicializar la semilla del generador de n´umeros aleatorios. 
El comando rand genera un n´umero aleatorio entre 0 y 1. Por ejemplo: 


% expr srand (1) 
7.82636925943 e−06 
% expr rand () 
0.131537788143 
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